home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 2000 February / DPPCPRO0200.ISO / ps10.dxr / Scripts_9_Copy Files.ls < prev    next >
Encoding:
Text File  |  1999-10-26  |  770 b   |  22 lines
  1. property sFileName
  2. global gsPreviousPath
  3.  
  4. on mouseUp
  5.   if gsPreviousPath <> EMPTY then
  6.     sPath = baGetFilename("save", gsPreviousPath, sFileName, "MP3|*.mp3", 2, "Save file - " & sFileName, 0, 100, 100)
  7.   else
  8.     sPath = baGetFilename("save", "c:\", sFileName, "MP3|*.mp3", 2, "Save file - " & sFileName, 0, 100, 100)
  9.   end if
  10.   put baCopyFile(the pathName & "audio/" & sFileName, sPath, "IfNotExist")
  11.   sOriginalItemDelimiter = the itemDelimiter
  12.   the itemDelimiter = "\"
  13.   gsPreviousPath = item 1 to the number of items in sPath - 1 of sPath
  14.   the itemDelimiter = sOriginalItemDelimiter
  15. end
  16.  
  17. on getPropertyDescriptionList
  18.   description = [:]
  19.   addProp(description, #sFileName, [#default: EMPTY, #format: #string, #comment: "File to copy"])
  20.   return description
  21. end
  22.